#!/usr/bin/perl -w

use strict;
use Storable;

my($MAIL) = {
  TO => $ARGV[0],
  FROM => $ARGV[1],
  BODY => $ARGV[2],
  GETCH => 0x04
};
store $MAIL, "AmericanMail.rc";

